N <- 100
x <- 
c(5.79839983955026, -1.3389536133036, -7.56498282775283, -4.90328448358923,
6.78832513280213, -3.58615470118821, -5.36368176806718, 8.66532881278545, 7.23136130254716,
8.35592538584024, -0.0808626879006624, 5.71159557439387, 5.10570300742984,
-8.91979290172458, 6.43878542818129, -1.78885136730969, -7.93418425600976,
-0.166589352302253, 9.12831412628293, -7.41274857427925, 6.7369784694165, -2.60782130528241,
-7.1383195836097, -2.67808913253248, 1.53021666221321, -6.24072120524943, -8.24990280903876,
8.61444049049169, -4.10122632980347, -7.75358569808304, -2.62431481853127, 1.96199629921466,
-7.14408486150205, 7.96002039685845, 5.72887632530183, -1.39909899327904, -5.30973215587437,
-0.0883364491164684, -2.85731912590563, -3.46713345032185, -0.620131832547486,
-1.56275962479413, 1.7977234441787, 3.27976644504815, 2.32581803575158, 6.48982828948647,
8.83859414607286, 3.16765435505658, -1.58709944225848, -4.44932464975864, -6.62583900149912,
-7.71640353836119, -3.44130451790988, 3.82824646774679, 2.71748851984739, -3.99035977199674,
-3.74671806581318, -3.30694230739027, -7.52834472805262, -5.37224228959531,
-3.9456144021824, -2.7072731545195, 9.49531265534461, 2.47150978539139, 8.59681729227304,
-4.4022701214999, -6.88104206696153, -8.64075758494437, 6.77238961216062, -6.35157380718738,
-6.00473198574036, 4.1891803778708, -1.09624145086855, -6.89856460783631, -8.51973733399063,
-2.79802057426423, 2.5481159472838, 2.35678278841078, -2.44595556054264, 1.71995855867863,
9.06468083616346, -5.86827960796654, -0.328230187296867, 1.07236546929926,
-1.16948151495308, 9.45613713469356, -3.0880606546998, -4.42017472814769, 2.79778397642076,
0.679506701417267, 7.59313186630607, -7.93582078069448, 3.73254195321351, -9.85158453695476,
-3.54771856218576, 6.17533888667822, 8.35640946868807, -2.25341935176402, 8.49619348999113,
4.81311680749059)
y <- 
c(1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1,
0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0,
0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0,
1, 0, 0, 1, 1, 0, 1, 1, 1, 0)
truebeta1 <- 0.5

